home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / store.dir / 00164.ls < prev    next >
Encoding:
Text File  |  1996-09-26  |  664 b   |  18 lines
  1. on showPreview
  2.   global orders, quantlist, totallist
  3.   clearPreview()
  4.   set lineCount to count(orders)
  5.   put "QUANTITY - TITLE -  -  TOTAL PRICE" into field "Order Field"
  6.   set tmpnum to the number of member "Order Field"
  7.   repeat with i = 1 to lineCount
  8.     set tmpfield to getAt(orders, i)
  9.     set tmpnum to tmpnum + 1
  10.     set tmpcast to the name of member tmpnum
  11.     put tmpfield into field tmpcast
  12.     set tmpquant to tmpquant + getAt(quantlist, i)
  13.     set tmptotal to tmptotal + getAt(totallist, i)
  14.   end repeat
  15.   put "TOTAL CD-ROMs: " & string(tmpquant) & "        " & "TOTAL PRICE: $" & string(tmptotal) & ".00" into field "Grand Total"
  16.   updateStage()
  17. end
  18.